home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 019 / attdump.arc / AT&TDUMP.BAS next >
BASIC Source File  |  1986-09-11  |  907b  |  29 lines
  1. 100 ' ** super high res screen dump **
  2. 105 CLS: KEY OFF: SCREEN 0: WIDTH 80
  3. 110 PRINT:PRINT"High Resolution Screen Dump"
  4. 115 PRINT:INPUT "File name: ";N$
  5. 120 '
  6. 125 ' load file
  7. 130 SCREEN 100
  8. 135 DEF SEG = &HB800
  9. 140 BLOAD N$
  10. 145 '
  11. 150 ' this is the hr dump routine
  12. 155 DEF SEG = &HB800: DEFINT A-Z
  13. 160 DIM N(4)
  14. 165 N(1)=0 : N(2)=8192 : N(3)=16384 : N(4)=24576
  15. 170 WIDTH "lpt1:",255: LPRINT CHR$(27)"@";
  16. 175 OPEN "R",1,"lpt1:": WIDTH#1,255
  17. 180 LPRINT CHR$(27);"3";CHR$(24);
  18. 185 LPRINT CHR$(27);"*";CHR$(0);CHR$(144);CHR$(1);
  19. 190 FOR C=0 TO 79
  20. 195      FOR L=100 TO 1 STEP -1
  21. 200              FOR S=4 TO 1 STEP -1
  22. 205                      PRINT #1, CHR$(PEEK(N(S)+(L-1)*80+C));
  23. 210              NEXT S
  24. 215      NEXT L: LPRINT : LPRINT CHR$(27);"*";CHR$(0);CHR$(144);CHR$(1);
  25. 220 NEXT C
  26. 225 LPRINT CHR$(27);"@"
  27. 230 W$=INKEY$: IF W$="" THEN SOUND 2000,1: GOTO 230
  28. 235 SCREEN 0: END
  29.